home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-05-16 | 6.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 3c | 4a 47 72 61 70 68 24 44 |..... ><|JGraph$D|
|00000010| 69 72 3e 2e 21 52 75 6e | 69 6d 61 67 65 42 0d 00 |ir>.!Run|imageB..|
|00000020| 14 05 f4 0d 00 1e 30 f4 | 20 4c 65 61 72 6e 69 6e |......0.| Learnin|
|00000030| 67 20 68 6f 77 20 74 6f | 20 70 72 6f 67 72 61 6d |g how to| program|
|00000040| 20 74 68 65 20 77 69 6e | 64 6f 77 20 6d 61 6e 61 | the win|dow mana|
|00000050| 67 65 72 0d 00 28 1b f4 | 20 42 79 20 4a 6f 68 6e |ger..(..| By John|
|00000060| 20 44 61 76 65 79 20 31 | 30 2f 31 2f 39 32 0d 00 | Davey 1|0/1/92..|
|00000070| 32 05 f4 0d 00 3c 05 f4 | 0d 00 46 05 f4 0d 00 50 |2....<..|..F....P|
|00000080| 04 0d 00 5a 0e ee 20 85 | 20 f2 65 72 72 6f 72 0d |...Z.. .| .error.|
|00000090| 00 64 05 20 0d 00 6e 13 | 45 78 6c 69 73 74 4c 65 |.d. ..n.|ExlistLe|
|000000a0| 6e 25 3d 33 36 30 30 0d | 00 78 12 69 6e 5f 70 72 |n%=3600.|.x.in_pr|
|000000b0| 6f 67 72 65 73 73 25 3d | a3 0d 00 82 0d de 20 42 |ogress%=|...... B|
|000000c0| 25 20 32 30 34 38 0d 00 | 8c 0f de 20 74 65 6d 70 |% 2048..|... temp|
|000000d0| 25 20 32 35 36 0d 00 96 | 12 de 20 77 5f 73 74 61 |% 256...|.. w_sta|
|000000e0| 74 65 25 20 32 35 36 0d | 00 a0 10 de 20 70 6f 6c |te% 256.|.... pol|
|000000f0| 6c 62 25 20 32 35 36 0d | 00 aa 12 de 20 62 75 66 |lb% 256.|.... buf|
|00000100| 66 65 72 25 20 34 30 39 | 36 0d 00 b4 11 6d 61 78 |fer% 409|6....max|
|00000110| 5f 77 25 20 3d 20 32 30 | 34 38 0d 00 be 15 de 20 |_w% = 20|48..... |
|00000120| 77 5f 73 70 61 63 65 25 | 20 6d 61 78 5f 77 25 0d |w_space%| max_w%.|
|00000130| 00 c8 15 de 20 66 6f 6e | 74 5f 73 70 61 63 65 25 |.... fon|t_space%|
|00000140| 20 32 35 36 0d 00 d2 1a | de 20 6d 65 6e 75 25 20 | 256....|. menu% |
|00000150| 32 30 38 2b 45 78 6c 69 | 73 74 4c 65 6e 25 0d 00 |208+Exli|stLen%..|
|00000160| dc 04 0d 00 e6 26 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.....&. |********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 00 f0 48 f4 20 49 4e |********|...H. IN|
|00000190| 53 45 52 54 20 32 31 37 | 30 20 20 20 53 59 53 22 |SERT 217|0 SYS"|
|000001a0| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 32 36 36 |OS_Sprit|eOp",266|
|000001b0| 2c 73 70 72 69 74 65 73 | 25 2c 22 3c 4a 47 72 61 |,sprites|%,"<JGra|
|000001c0| 70 68 24 44 69 72 3e 2e | 53 70 72 69 74 65 73 22 |ph$Dir>.|Sprites"|
|000001d0| 0d 00 fa 27 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...'. **|********|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 0d | 01 04 04 0d 01 0e 04 0d |*******.|........|
|00000200| 01 18 14 f2 77 69 6d 70 | 5f 69 6e 69 74 69 61 6c |....wimp|_initial|
|00000210| 69 73 65 0d 01 22 0f f2 | 6c 6f 61 64 5f 6d 65 6e |ise.."..|load_men|
|00000220| 75 73 0d 01 2c 20 f2 6f | 70 65 6e 5f 77 69 6e 64 |us.., .o|pen_wind|
|00000230| 6f 77 28 74 79 70 69 6e | 67 5f 77 69 6e 64 6f 77 |ow(typin|g_window|
|00000240| 25 29 0d 01 36 20 f2 73 | 74 61 72 74 5f 6c 65 73 |%)..6 .s|tart_les|
|00000250| 73 6f 6e 28 22 45 78 65 | 72 63 69 73 65 20 41 31 |son("Exe|rcise A1|
|00000260| 22 29 0d 01 40 28 f2 6d | 6f 75 73 65 5f 63 6c 69 |")..@(.m|ouse_cli|
|00000270| 63 6b 28 30 2c 30 2c 34 | 2c 74 79 70 69 6e 67 5f |ck(0,0,4|,typing_|
|00000280| 77 69 6e 64 6f 77 25 2c | 35 29 0d 01 4a 04 0d 01 |window%,|5)..J...|
|00000290| 54 04 0d 01 5e 0b 71 75 | 69 74 25 3d a3 0d 01 68 |T...^.qu|it%=...h|
|000002a0| 04 0d 01 72 19 6d 61 73 | 6b 25 3d 25 30 31 31 30 |...r.mas|k%=%0110|
|000002b0| 30 30 30 30 31 31 30 30 | 31 31 0d 01 7c 04 0d 01 |00001100|11..|...|
|000002c0| 86 05 20 0d 01 90 05 f5 | 0d 01 9a 2b 20 20 c8 99 |.. .....|...+ ..|
|000002d0| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 22 2c 6d 61 73 | "Wimp_P|oll",mas|
|000002e0| 6b 25 2c 70 6f 6c 6c 62 | 25 20 b8 20 72 65 61 73 |k%,pollb|% . reas|
|000002f0| 6f 6e 25 0d 01 a4 12 20 | 20 c8 8e 20 72 65 61 73 |on%.... | .. reas|
|00000300| 6f 6e 25 20 ca 0d 01 ae | 2a 20 20 20 20 c9 20 32 |on% ....|* . 2|
|00000310| 20 3a 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e | : .. "W|imp_Open|
|00000320| 57 69 6e 64 6f 77 22 2c | 2c 70 6f 6c 6c 62 25 0d |Window",|,pollb%.|
|00000330| 01 b8 37 20 20 20 20 c9 | 20 33 20 3a 20 c8 99 20 |..7 .| 3 : .. |
|00000340| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000350| 77 22 2c 2c 70 6f 6c 6c | 62 25 20 3a 20 71 75 69 |w",,poll|b% : qui|
|00000360| 74 25 20 3d 20 b9 0d 01 | c2 4a 20 20 20 20 c9 20 |t% = ...|.J . |
|00000370| 36 20 3a 20 f2 6d 6f 75 | 73 65 5f 63 6c 69 63 6b |6 : .mou|se_click|
|00000380| 28 70 6f 6c 6c 62 25 21 | 30 2c 70 6f 6c 6c 62 25 |(pollb%!|0,pollb%|
|00000390| 21 34 2c 70 6f 6c 6c 62 | 25 21 38 2c 70 6f 6c 6c |!4,pollb|%!8,poll|
|000003a0| 62 25 21 31 32 2c 70 6f | 6c 6c 62 25 21 31 36 29 |b%!12,po|llb%!16)|
|000003b0| 0d 01 cc 25 20 20 20 20 | c9 20 38 20 3a 20 f2 6b |...% |. 8 : .k|
|000003c0| 65 79 5f 70 72 65 73 73 | 65 64 28 70 6f 6c 6c 62 |ey_press|ed(pollb|
|000003d0| 25 21 32 34 29 0d 01 d6 | 28 20 20 20 20 c9 20 39 |%!24)...|( . 9|
|000003e0| 20 3a 20 f2 64 65 63 6f | 64 65 5f 6d 65 6e 75 28 | : .deco|de_menu(|
|000003f0| 70 6f 6c 6c 62 25 2c 6d | 65 6e 75 25 29 0d 01 e0 |pollb%,m|enu%)...|
|00000400| 21 20 20 20 20 c9 20 31 | 37 2c 31 38 20 3a 20 f2 |! . 1|7,18 : .|
|00000410| 6d 73 67 5f 69 6e 28 70 | 6f 6c 6c 62 25 29 0d 01 |msg_in(p|ollb%)..|
|00000420| ea 07 20 20 cb 0d 01 f4 | 0b fd 20 71 75 69 74 25 |.. ....|.. quit%|
|00000430| 0d 01 fe 11 f2 63 6c 6f | 73 65 5f 6c 65 73 73 6f |.....clo|se_lesso|
|00000440| 6e 0d 02 08 17 c8 99 20 | 22 57 69 6d 70 5f 43 6c |n...... |"Wimp_Cl|
|00000450| 6f 73 65 44 6f 77 6e 22 | 0d 02 12 05 e0 0d 02 1c |oseDown"|........|
|00000460| 05 3a 0d 02 26 04 0d 02 | 30 04 0d 02 3a 16 dd 20 |.:..&...|0...:.. |
|00000470| f2 77 69 6d 70 5f 69 6e | 69 74 69 61 6c 69 73 65 |.wimp_in|itialise|
|00000480| 0d 02 44 21 20 20 74 61 | 73 6b 5f 6e 61 6d 65 24 |..D! ta|sk_name$|
|00000490| 20 3d 20 22 54 79 70 69 | 6e 67 20 54 75 74 6f 72 | = "Typi|ng Tutor|
|000004a0| 22 0d 02 4e 33 20 20 c8 | 99 20 22 57 69 6d 70 5f |"..N3 .|. "Wimp_|
|000004b0| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|000004c0| 26 34 42 35 33 34 31 35 | 34 2c 74 61 73 6b 5f 6e |&4B53415|4,task_n|
|000004d0| 61 6d 65 24 0d 02 58 17 | 20 20 70 6f 69 6e 74 65 |ame$..X.| pointe|
|000004e0| 72 25 3d 77 5f 73 70 61 | 63 65 25 0d 02 62 36 20 |r%=w_spa|ce%..b6 |
|000004f0| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 | .. "Wim|p_OpenTe|
|00000500| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 54 54 75 74 6f |mplate",|,"<TTuto|
|00000510| 72 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 73 |r$Dir>.T|emplates|
|00000520| 22 0d 02 6c 91 20 20 c8 | 99 20 22 57 69 6d 70 5f |"..l. .|. "Wimp_|
|00000530| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 62 |LoadTemp|late",,b|
|00000540| 75 66 66 65 72 25 2c 70 | 6f 69 6e 74 65 72 25 2c |uffer%,p|ointer%,|
|00000550| 77 5f 73 70 61 63 65 25 | 2b 6d 61 78 5f 77 25 2c |w_space%|+max_w%,|
|00000560| 66 6f 6e 74 5f 73 70 61 | 63 65 25 2c 22 54 79 70 |font_spa|ce%,"Typ|
|00000570| 69 6e 67 54 75 74 6f 72 | 22 2c 30 20 b8 20 2c 2c |ingTutor|",0 . ,,|
|00000580| 70 6f 69 6e 74 65 72 25 | 2c 2c 2c 2c 72 36 25 3a |pointer%|,,,,r6%:|
|00000590| e7 20 72 36 25 3d 30 20 | 8c 20 85 20 31 2c 22 54 |. r6%=0 |. . 1,"T|
|000005a0| 65 6d 70 6c 61 74 65 20 | 6e 6f 74 20 66 6f 75 6e |emplate |not foun|
|000005b0| 64 22 0d 02 76 36 20 20 | c8 99 20 22 57 69 6d 70 |d"..v6 |.. "Wimp|
|000005c0| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000005d0| 62 75 66 66 65 72 25 20 | b8 20 74 79 70 69 6e 67 |buffer% |. typing|
|000005e0| 5f 77 69 6e 64 6f 77 25 | 0d 02 80 8a 20 20 c8 99 |_window%|.... ..|
|000005f0| 20 22 57 69 6d 70 5f 4c | 6f 61 64 54 65 6d 70 6c | "Wimp_L|oadTempl|
|00000600| 61 74 65 22 2c 2c 62 75 | 66 66 65 72 25 2c 70 6f |ate",,bu|ffer%,po|
|00000610| 69 6e 74 65 72 25 2c 77 | 5f 73 70 61 63 65 25 2b |inter%,w|_space%+|
|00000620| 6d 61 78 5f 77 25 2c 66 | 6f 6e 74 5f 73 70 61 63 |max_w%,f|ont_spac|
|00000630| 65 25 2c 22 49 6e 66 6f | 22 2c 30 20 b8 20 2c 2c |e%,"Info|",0 . ,,|
|00000640| 70 6f 69 6e 74 65 72 25 | 2c 2c 2c 2c 72 36 25 3a |pointer%|,,,,r6%:|
|00000650| e7 20 72 36 25 3d 30 20 | 8c 20 85 20 31 2c 22 54 |. r6%=0 |. . 1,"T|
|00000660| 65 6d 70 6c 61 74 65 20 | 6e 6f 74 20 66 6f 75 6e |emplate |not foun|
|00000670| 64 22 0d 02 8a 34 20 20 | c8 99 20 22 57 69 6d 70 |d"...4 |.. "Wimp|
|00000680| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000690| 62 75 66 66 65 72 25 20 | b8 20 69 6e 66 6f 5f 68 |buffer% |. info_h|
|000006a0| 61 6e 64 6c 65 25 0d 02 | 94 1d 20 20 c8 99 20 22 |andle%..|.. .. "|
|000006b0| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|000006c0| 74 65 22 0d 02 9e 05 e1 | 0d 02 a8 04 0d 02 b2 11 |te".....|........|
|000006d0| dd 20 f2 6c 6f 61 64 5f | 6d 65 6e 75 73 0d 02 bc |. .load_|menus...|
|000006e0| 2a 20 20 ff 28 22 4c 6f | 61 64 20 3c 54 54 75 74 |* .("Lo|ad <TTut|
|000006f0| 6f 72 24 44 69 72 3e 2e | 4d 65 6e 75 20 22 2b c3 |or$Dir>.|Menu "+.|
|00000700| 7e 6d 65 6e 75 25 29 0d | 02 c6 18 20 20 6d 65 6e |~menu%).|... men|
|00000710| 75 25 21 35 36 3d 6d 65 | 6e 75 25 2b 31 30 34 0d |u%!56=me|nu%+104.|
|00000720| 02 d0 1b 20 20 6d 65 6e | 75 25 21 33 32 3d 69 6e |... men|u%!32=in|
|00000730| 66 6f 5f 68 61 6e 64 6c | 65 25 0d 02 da 32 20 20 |fo_handl|e%...2 |
|00000740| ff 28 22 4c 4f 41 44 20 | 3c 54 54 75 74 6f 72 24 |.("LOAD |<TTutor$|
|00000750| 44 69 72 3e 2e 45 78 6c | 69 73 74 20 22 2b c3 7e |Dir>.Exl|ist "+.~|
|00000760| 28 6d 65 6e 75 25 2b 31 | 33 32 29 29 0d 02 e4 16 |(menu%+1|32))....|
|00000770| 20 20 6f 6c 64 5f 73 65 | 6c 65 63 74 69 6f 6e 25 | old_se|lection%|
|00000780| 3d 30 0d 02 ee 4d 20 20 | 21 28 6d 65 6e 75 25 2b |=0...M |!(menu%+|
|00000790| 31 33 32 2b 28 6f 6c 64 | 5f 73 65 6c 65 63 74 69 |132+(old|_selecti|
|000007a0| 6f 6e 25 2a 32 34 29 29 | 20 3d 20 21 28 6d 65 6e |on%*24))| = !(men|
|000007b0| 75 25 2b 31 33 32 2b 28 | 6f 6c 64 5f 73 65 6c 65 |u%+132+(|old_sele|
|000007c0| 63 74 69 6f 6e 25 2a 32 | 34 29 29 20 82 20 31 0d |ction%*2|4)) . 1.|
|000007d0| 02 f8 05 e1 0d 03 02 04 | 0d 03 0c 26 dd 20 f2 64 |........|...&. .d|
|000007e0| 65 63 6f 64 65 5f 6d 65 | 6e 75 28 42 25 2c 6d 65 |ecode_me|nu(B%,me|
|000007f0| 6e 75 5f 62 6c 6f 63 6b | 25 29 3a ea 43 24 0d 03 |nu_block|%):.C$..|
|00000800| 16 2f 20 20 c8 99 22 57 | 69 6d 70 5f 44 65 63 6f |./ .."W|imp_Deco|
|00000810| 64 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 5f 62 6c |deMenu",|,menu_bl|
|00000820| 6f 63 6b 25 2c 42 25 2c | 42 25 2b 31 36 0d 03 20 |ock%,B%,|B%+16.. |
|00000830| 1b 20 20 43 24 3d a4 6c | 65 61 66 28 a4 76 61 72 |. C$=.l|eaf(.var|
|00000840| 28 42 25 2b 31 36 29 29 | 0d 03 2a 0d 20 20 c8 8e |(B%+16))|..*. ..|
|00000850| 20 43 24 20 ca 0d 03 34 | 18 20 20 20 20 c9 20 22 | C$ ...4|. . "|
|00000860| 51 75 69 74 22 3a 71 75 | 69 74 25 3d b9 0d 03 3e |Quit":qu|it%=...>|
|00000870| 07 20 20 cb 0d 03 48 1a | 20 20 e7 20 a7 43 24 2c |. ...H.| . .C$,|
|00000880| 22 45 78 65 72 63 69 73 | 65 20 22 29 20 8c 0d 03 |"Exercis|e ") ...|
|00000890| 52 1e 20 20 20 20 f2 73 | 65 6c 65 63 74 5f 65 78 |R. .s|elect_ex|
|000008a0| 65 72 63 69 73 65 28 42 | 25 21 34 29 0d 03 5c 12 |ercise(B|%!4)..\.|
|000008b0| 20 20 20 20 6c 65 73 73 | 6f 6e 24 3d 43 24 0d 03 | less|on$=C$..|
|000008c0| 66 15 20 20 20 20 f2 63 | 6c 6f 73 65 5f 6c 65 73 |f. .c|lose_les|
|000008d0| 73 6f 6e 0d 03 70 1e 20 | 20 20 20 f2 73 74 61 72 |son..p. | .star|
|000008e0| 74 5f 6c 65 73 73 6f 6e | 28 6c 65 73 73 6f 6e 24 |t_lesson|(lesson$|
|000008f0| 29 0d 03 7a 07 20 20 cd | 0d 03 84 21 20 20 c8 99 |)..z. .|...! ..|
|00000900| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00000910| 49 6e 66 6f 22 2c 2c 42 | 25 0d 03 8e 2e 20 20 e7 |Info",,B|%.... .|
|00000920| 42 25 21 38 3d 31 20 c8 | 99 22 57 69 6d 70 5f 43 |B%!8=1 .|."Wimp_C|
|00000930| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 6d 65 6e 75 |reateMen|u",,menu|
|00000940| 5f 62 6c 6f 63 6b 25 0d | 03 98 05 e1 0d 03 a2 04 |_block%.|........|
|00000950| 0d 03 ac 13 dd 20 f2 63 | 6c 6f 73 65 5f 6c 65 73 |..... .c|lose_les|
|00000960| 73 6f 6e 0d 03 b6 1b 20 | 20 e7 20 69 6e 5f 70 72 |son.... | . in_pr|
|00000970| 6f 67 72 65 73 73 25 20 | 8c 20 d9 20 23 43 0d 03 |ogress% |. . #C..|
|00000980| c0 05 e1 0d 03 ca 04 0d | 03 d4 1c dd 20 f2 73 74 |........|.... .st|
|00000990| 61 72 74 5f 6c 65 73 73 | 6f 6e 28 6c 65 73 73 6f |art_less|on(lesso|
|000009a0| 6e 24 29 0d 03 de 1e 20 | 20 43 3d 8e 28 22 3c 54 |n$).... | C=.("<T|
|000009b0| 54 75 74 6f 72 24 44 69 | 72 3e 2e 44 61 74 61 22 |Tutor$Di|r>.Data"|
|000009c0| 29 0d 03 e8 11 20 20 e8 | 20 23 43 2c 74 69 74 6c |).... .| #C,titl|
|000009d0| 65 24 0d 03 f2 1b 20 20 | c8 95 20 a7 74 69 74 6c |e$.... |.. .titl|
|000009e0| 65 24 2c 6c 65 73 73 6f | 6e 24 29 3d a3 0d 03 fc |e$,lesso|n$)=....|
|000009f0| 0f 20 20 20 20 e8 20 23 | 43 2c 4e 25 0d 04 06 13 |. . #|C,N%....|
|00000a00| 20 20 20 20 e3 20 52 25 | 3d 31 20 b8 20 4e 25 0d | . R%|=1 . N%.|
|00000a10| 04 10 11 20 20 20 20 20 | 20 e8 20 23 43 2c 41 24 |... | . #C,A$|
|00000a20| 0d 04 1a 09 20 20 20 20 | ed 0d 04 24 13 20 20 20 |.... |...$. |
|00000a30| 20 e8 20 23 43 2c 74 69 | 74 6c 65 24 0d 04 2e 07 | . #C,ti|tle$....|
|00000a40| 20 20 ce 0d 04 38 11 20 | 20 e8 20 23 43 2c 6c 69 | ...8. | . #C,li|
|00000a50| 6e 65 73 25 0d 04 42 0d | 20 20 6c 69 6e 65 25 3d |nes%..B.| line%=|
|00000a60| 31 0d 04 4c 10 20 20 e8 | 20 23 43 2c 6c 69 6e 65 |1..L. .| #C,line|
|00000a70| 24 0d 04 56 14 20 20 69 | 6e 5f 70 72 6f 67 72 65 |$..V. i|n_progre|
|00000a80| 73 73 25 3d b9 0d 04 60 | 0c 20 20 70 6f 73 25 3d |ss%=...`|. pos%=|
|00000a90| 31 0d 04 6a 0f 20 20 65 | 72 72 6f 72 24 3d 22 22 |1..j. e|rror$=""|
|00000aa0| 0d 04 74 0e 20 20 65 72 | 72 6f 72 25 3d 30 0d 04 |..t. er|ror%=0..|
|00000ab0| 7e 10 20 20 74 79 70 65 | 64 24 3d 22 2d 22 0d 04 |~. type|d$="-"..|
|00000ac0| 88 1b 20 20 6e 77 6f 72 | 64 73 25 3d a4 77 6f 72 |.. nwor|ds%=.wor|
|00000ad0| 64 73 28 6c 69 6e 65 24 | 29 0d 04 92 16 20 20 6c |ds(line$|).... l|
|00000ae0| 65 6e 67 74 68 25 3d a9 | 28 6c 69 6e 65 24 29 0d |ength%=.|(line$).|
|00000af0| 04 9c 0f 20 20 74 69 6d | 69 6e 67 25 3d a3 0d 04 |... tim|ing%=...|
|00000b00| a6 30 20 20 f2 73 65 74 | 5f 73 74 72 69 6e 67 28 |.0 .set|_string(|
|00000b10| 74 79 70 69 6e 67 5f 77 | 69 6e 64 6f 77 25 2c 33 |typing_w|indow%,3|
|00000b20| 36 2c 30 2c 30 2c 6c 65 | 73 73 6f 6e 24 29 0d 04 |6,0,0,le|sson$)..|
|00000b30| b0 2d 20 20 f2 73 65 74 | 5f 73 74 72 69 6e 67 28 |.- .set|_string(|
|00000b40| 74 79 70 69 6e 67 5f 77 | 69 6e 64 6f 77 25 2c 33 |typing_w|indow%,3|
|00000b50| 2c 30 2c 30 2c 6c 69 6e | 65 24 29 0d 04 ba 2e 20 |,0,0,lin|e$).... |
|00000b60| 20 f2 73 65 74 5f 73 74 | 72 69 6e 67 28 74 79 70 | .set_st|ring(typ|
|00000b70| 69 6e 67 5f 77 69 6e 64 | 6f 77 25 2c 34 2c 30 2c |ing_wind|ow%,4,0,|
|00000b80| 30 2c 65 72 72 6f 72 24 | 29 0d 04 c4 2e 20 20 f2 |0,error$|).... .|
|00000b90| 73 65 74 5f 73 74 72 69 | 6e 67 28 74 79 70 69 6e |set_stri|ng(typin|
|00000ba0| 67 5f 77 69 6e 64 6f 77 | 25 2c 35 2c 30 2c 30 2c |g_window|%,5,0,0,|
|00000bb0| 74 79 70 65 64 24 29 0d | 04 ce 05 e1 0d 04 d8 04 |typed$).|........|
|00000bc0| 0d 04 e2 18 dd 20 f2 6b | 65 79 5f 70 72 65 73 73 |..... .k|ey_press|
|00000bd0| 65 64 28 6b 65 79 25 29 | 0d 04 ec 13 20 20 e7 20 |ed(key%)|.... . |
|00000be0| 74 69 6d 69 6e 67 25 3d | a3 20 8c 0d 04 f6 11 20 |timing%=|. ..... |
|00000bf0| 20 20 20 74 69 6d 69 6e | 67 25 3d b9 0d 05 00 29 | timin|g%=....)|
|00000c00| 20 20 20 20 c8 99 20 22 | 4f 53 5f 52 65 61 64 4d | .. "|OS_ReadM|
|00000c10| 6f 6e 6f 74 6f 6e 69 63 | 54 69 6d 65 22 20 b8 20 |onotonic|Time" . |
|00000c20| 74 69 6d 65 25 0d 05 0a | 07 20 20 cd 0d 05 14 1e |time%...|. .....|
|00000c30| 20 20 e7 20 28 6b 65 79 | 25 3c 31 32 33 20 80 20 | . (key|%<123 . |
|00000c40| 6b 65 79 25 3e 33 31 29 | 20 8c 0d 05 1e 2f 20 20 |key%>31)| ..../ |
|00000c50| 20 20 74 79 70 65 64 24 | 3d c0 74 79 70 65 64 24 | typed$|=.typed$|
|00000c60| 2c a9 28 74 79 70 65 64 | 24 29 2d 31 29 2b bd 28 |,.(typed|$)-1)+.(|
|00000c70| 6b 65 79 25 29 2b 22 2d | 22 0d 05 28 23 20 20 20 |key%)+"-|"..(# |
|00000c80| 20 e7 20 6b 65 79 25 3c | 3e 97 28 c1 6c 69 6e 65 | . key%<|>.(.line|
|00000c90| 24 2c 70 6f 73 25 2c 31 | 29 29 20 8c 0d 05 32 0d |$,pos%,1|)) ...2.|
|00000ca0| 20 20 20 20 20 20 ef 20 | 37 0d 05 3c 1b 20 20 20 | . |7..<. |
|00000cb0| 20 20 20 65 72 72 6f 72 | 24 3d 65 72 72 6f 72 24 | error|$=error$|
|00000cc0| 2b 22 7c 22 0d 05 46 32 | 20 20 20 20 20 20 f2 73 |+"|"..F2| .s|
|00000cd0| 65 74 5f 73 74 72 69 6e | 67 28 74 79 70 69 6e 67 |et_strin|g(typing|
|00000ce0| 5f 77 69 6e 64 6f 77 25 | 2c 34 2c 30 2c 30 2c 65 |_window%|,4,0,0,e|
|00000cf0| 72 72 6f 72 24 29 0d 05 | 50 13 20 20 20 20 20 20 |rror$)..|P. |
|00000d00| 65 72 72 6f 72 25 2b 3d | 31 0d 05 5a 09 20 20 20 |error%+=|1..Z. |
|00000d10| 20 cc 0d 05 64 1b 20 20 | 20 20 20 20 65 72 72 6f | ...d. | erro|
|00000d20| 72 24 3d 65 72 72 6f 72 | 24 2b 22 20 22 0d 05 6e |r$=error|$+" "..n|
|00000d30| 09 20 20 20 20 cd 0d 05 | 78 30 20 20 20 20 f2 73 |. ...|x0 .s|
|00000d40| 65 74 5f 73 74 72 69 6e | 67 28 74 79 70 69 6e 67 |et_strin|g(typing|
|00000d50| 5f 77 69 6e 64 6f 77 25 | 2c 35 2c 30 2c 30 2c 74 |_window%|,5,0,0,t|
|00000d60| 79 70 65 64 24 29 0d 05 | 82 0f 20 20 20 20 70 6f |yped$)..|.. po|
|00000d70| 73 25 2b 3d 31 0d 05 8c | 23 20 20 20 20 e7 20 70 |s%+=1...|# . p|
|00000d80| 6f 73 25 3e a9 28 6c 69 | 6e 65 24 29 20 8c 20 f2 |os%>.(li|ne$) . .|
|00000d90| 6e 65 77 5f 6c 69 6e 65 | 0d 05 96 07 20 20 cc 0d |new_line|.... ..|
|00000da0| 05 a0 21 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |..! .|. "Wimp_|
|00000db0| 50 72 6f 63 65 73 73 4b | 65 79 22 2c 6b 65 79 25 |ProcessK|ey",key%|
|00000dc0| 0d 05 aa 07 20 20 cd 0d | 05 b4 05 e1 0d 05 be 04 |.... ..|........|
|00000dd0| 0d 05 c8 0f dd 20 f2 6e | 65 77 5f 6c 69 6e 65 0d |..... .n|ew_line.|
|00000de0| 05 d2 0e 20 20 6c 69 6e | 65 25 2b 3d 31 0d 05 dc |... lin|e%+=1...|
|00000df0| 16 20 20 e7 20 6c 69 6e | 65 25 3e 6c 69 6e 65 73 |. . lin|e%>lines|
|00000e00| 25 20 8c 0d 05 e6 2d 20 | 20 20 20 c8 99 20 22 4f |% ....- | .. "O|
|00000e10| 53 5f 52 65 61 64 4d 6f | 6e 6f 74 6f 6e 69 63 54 |S_ReadMo|notonicT|
|00000e20| 69 6d 65 22 20 b8 20 74 | 69 6d 65 73 74 6f 70 25 |ime" . t|imestop%|
|00000e30| 0d 05 f0 1d 20 20 20 20 | 74 69 6d 65 25 3d 74 69 |.... |time%=ti|
|00000e40| 6d 65 73 74 6f 70 25 2d | 74 69 6d 65 25 0d 05 fa |mestop%-|time%...|
|00000e50| 28 20 20 20 20 f2 64 65 | 62 75 67 76 76 28 36 2c |( .de|bugvv(6,|
|00000e60| 22 4f 76 65 72 61 6c 6c | 20 74 69 6d 65 22 2c 74 |"Overall| time",t|
|00000e70| 69 6d 65 25 29 0d 06 04 | 16 20 20 20 20 f2 6e 65 |ime%)...|. .ne|
|00000e80| 78 74 5f 65 78 65 72 63 | 69 73 65 0d 06 0e 07 20 |xt_exerc|ise.... |
|00000e90| 20 cc 0d 06 18 12 20 20 | 20 20 e8 20 23 43 2c 6c | ..... | . #C,l|
|00000ea0| 69 6e 65 24 0d 06 22 1e | 20 20 20 20 6e 77 6f 72 |ine$..".| nwor|
|00000eb0| 64 73 25 2b 3d a4 77 6f | 72 64 73 28 6c 69 6e 65 |ds%+=.wo|rds(line|
|00000ec0| 24 29 0d 06 2c 19 20 20 | 20 20 6c 65 6e 67 74 68 |$)..,. | length|
|00000ed0| 25 2b 3d a9 28 6c 69 6e | 65 24 29 0d 06 36 0e 20 |%+=.(lin|e$)..6. |
|00000ee0| 20 20 20 70 6f 73 25 3d | 31 0d 06 40 11 20 20 20 | pos%=|1..@. |
|00000ef0| 20 65 72 72 6f 72 24 3d | 22 22 0d 06 4a 12 20 20 | error$=|""..J. |
|00000f00| 20 20 74 79 70 65 64 24 | 3d 22 2d 22 0d 06 54 2f | typed$|="-"..T/|
|00000f10| 20 20 20 20 f2 73 65 74 | 5f 73 74 72 69 6e 67 28 | .set|_string(|
|00000f20| 74 79 70 69 6e 67 5f 77 | 69 6e 64 6f 77 25 2c 33 |typing_w|indow%,3|
|00000f30| 2c 30 2c 30 2c 6c 69 6e | 65 24 29 0d 06 5e 30 20 |,0,0,lin|e$)..^0 |
|00000f40| 20 20 20 f2 73 65 74 5f | 73 74 72 69 6e 67 28 74 | .set_|string(t|
|00000f50| 79 70 69 6e 67 5f 77 69 | 6e 64 6f 77 25 2c 34 2c |yping_wi|ndow%,4,|
|00000f60| 30 2c 30 2c 65 72 72 6f | 72 24 29 0d 06 68 30 20 |0,0,erro|r$)..h0 |
|00000f70| 20 20 20 f2 73 65 74 5f | 73 74 72 69 6e 67 28 74 | .set_|string(t|
|00000f80| 79 70 69 6e 67 5f 77 69 | 6e 64 6f 77 25 2c 35 2c |yping_wi|ndow%,5,|
|00000f90| 30 2c 30 2c 74 79 70 65 | 64 24 29 0d 06 72 07 20 |0,0,type|d$)..r. |
|00000fa0| 20 cd 0d 06 7c 05 e1 0d | 06 86 04 0d 06 90 10 dd | ...|...|........|
|00000fb0| 20 a4 77 6f 72 64 73 28 | 53 24 29 0d 06 9a 0a 20 | .words(|S$).... |
|00000fc0| 20 ea 20 43 25 0d 06 a4 | 0a 20 20 43 25 3d 31 0d | . C%...|. C%=1.|
|00000fd0| 06 ae 14 20 20 e3 20 52 | 25 3d 31 20 b8 20 a9 28 |... . R|%=1 . .(|
|00000fe0| 53 24 29 0d 06 b8 1f 20 | 20 20 20 e7 20 c1 53 24 |S$).... | . .S$|
|00000ff0| 2c 52 25 2c 31 29 3d 22 | 20 22 20 8c 20 43 25 2b |,R%,1)="| " . C%+|
|00001000| 3d 31 0d 06 c2 07 20 20 | ed 0d 06 cc 08 3d 20 43 |=1.... |.....= C|
|00001010| 25 0d 06 d6 04 0d 06 e0 | 14 dd 20 f2 6e 65 78 74 |%.......|.. .next|
|00001020| 5f 65 78 65 72 63 69 73 | 65 0d 06 ea 11 20 20 f2 |_exercis|e.... .|
|00001030| 73 74 61 74 69 73 74 69 | 63 73 0d 06 f4 11 20 20 |statisti|cs.... |
|00001040| e8 20 23 43 2c 74 69 74 | 6c 65 24 0d 06 fe 1b 20 |. #C,tit|le$.... |
|00001050| 20 e7 20 74 69 74 6c 65 | 24 3c 3e 22 54 48 45 20 | . title|$<>"THE |
|00001060| 45 4e 44 22 20 8c 0d 07 | 08 13 20 20 20 20 e8 20 |END" ...|.. . |
|00001070| 23 43 2c 6c 69 6e 65 73 | 25 0d 07 12 0f 20 20 20 |#C,lines|%.... |
|00001080| 20 6c 69 6e 65 25 3d 31 | 0d 07 1c 12 20 20 20 20 | line%=1|.... |
|00001090| e8 20 23 43 2c 6c 69 6e | 65 24 0d 07 26 16 20 20 |. #C,lin|e$..&. |
|000010a0| 20 20 69 6e 5f 70 72 6f | 67 72 65 73 73 25 3d b9 | in_pro|gress%=.|
|000010b0| 0d 07 30 11 20 20 20 20 | 74 69 6d 69 6e 67 25 3d |..0. |timing%=|
|000010c0| a3 0d 07 3a 0e 20 20 20 | 20 70 6f 73 25 3d 31 0d |...:. | pos%=1.|
|000010d0| 07 44 11 20 20 20 20 65 | 72 72 6f 72 24 3d 22 22 |.D. e|rror$=""|
|000010e0| 0d 07 4e 10 20 20 20 20 | 65 72 72 6f 72 25 3d 30 |..N. |error%=0|
|000010f0| 0d 07 58 12 20 20 20 20 | 74 79 70 65 64 24 3d 22 |..X. |typed$="|
|00001100| 2d 22 0d 07 62 16 20 20 | 20 20 6c 65 73 73 6f 6e |-"..b. | lesson|
|00001110| 24 3d 74 69 74 6c 65 24 | 0d 07 6c 1d 20 20 20 20 |$=title$|..l. |
|00001120| 6e 77 6f 72 64 73 25 3d | a4 77 6f 72 64 73 28 6c |nwords%=|.words(l|
|00001130| 69 6e 65 24 29 0d 07 76 | 18 20 20 20 20 6c 65 6e |ine$)..v|. len|
|00001140| 67 74 68 25 3d a9 28 6c | 69 6e 65 24 29 0d 07 80 |gth%=.(l|ine$)...|
|00001150| 32 20 20 20 20 f2 73 65 | 74 5f 73 74 72 69 6e 67 |2 .se|t_string|
|00001160| 28 74 79 70 69 6e 67 5f | 77 69 6e 64 6f 77 25 2c |(typing_|window%,|
|00001170| 33 36 2c 30 2c 30 2c 6c | 65 73 73 6f 6e 24 29 0d |36,0,0,l|esson$).|
|00001180| 07 8a 2f 20 20 20 20 f2 | 73 65 74 5f 73 74 72 69 |../ .|set_stri|
|00001190| 6e 67 28 74 79 70 69 6e | 67 5f 77 69 6e 64 6f 77 |ng(typin|g_window|
|000011a0| 25 2c 33 2c 30 2c 30 2c | 6c 69 6e 65 24 29 0d 07 |%,3,0,0,|line$)..|
|000011b0| 94 30 20 20 20 20 f2 73 | 65 74 5f 73 74 72 69 6e |.0 .s|et_strin|
|000011c0| 67 28 74 79 70 69 6e 67 | 5f 77 69 6e 64 6f 77 25 |g(typing|_window%|
|000011d0| 2c 34 2c 30 2c 30 2c 65 | 72 72 6f 72 24 29 0d 07 |,4,0,0,e|rror$)..|
|000011e0| 9e 30 20 20 20 20 f2 73 | 65 74 5f 73 74 72 69 6e |.0 .s|et_strin|
|000011f0| 67 28 74 79 70 69 6e 67 | 5f 77 69 6e 64 6f 77 25 |g(typing|_window%|
|00001200| 2c 35 2c 30 2c 30 2c 74 | 79 70 65 64 24 29 0d 07 |,5,0,0,t|yped$)..|
|00001210| a8 07 20 20 cc 0d 07 b2 | 24 20 20 20 20 f2 73 74 |.. ....|$ .st|
|00001220| 61 72 74 5f 6c 65 73 73 | 6f 6e 28 22 45 78 65 72 |art_less|on("Exer|
|00001230| 63 69 73 65 20 41 31 22 | 29 0d 07 bc 07 20 20 cd |cise A1"|).... .|
|00001240| 0d 07 c6 05 e1 0d 07 d0 | 04 0d 07 da 11 dd 20 f2 |........|...... .|
|00001250| 73 74 61 74 69 73 74 69 | 63 73 0d 07 e4 1f 20 20 |statisti|cs.... |
|00001260| 77 70 6d 25 3d 6e 77 6f | 72 64 73 25 2f 28 74 69 |wpm%=nwo|rds%/(ti|
|00001270| 6d 65 25 2f 36 30 30 30 | 29 0d 07 ee 1b 20 20 e7 |me%/6000|).... .|
|00001280| 20 77 70 6d 25 3e 31 30 | 30 20 8c 20 77 70 6d 25 | wpm%>10|0 . wpm%|
|00001290| 3d 31 30 30 0d 07 f8 23 | 20 20 65 72 72 25 3d 28 |=100...#| err%=(|
|000012a0| 31 2d 28 65 72 72 6f 72 | 25 2f 6c 65 6e 67 74 68 |1-(error|%/length|
|000012b0| 25 29 29 2a 31 30 30 0d | 08 02 21 20 20 f2 64 65 |%))*100.|..! .de|
|000012c0| 62 75 67 76 76 28 31 2c | 22 57 6f 72 64 73 20 70 |bugvv(1,|"Words p|
|000012d0| 6d 22 2c 77 70 6d 25 29 | 0d 08 0c 21 20 20 f2 64 |m",wpm%)|...! .d|
|000012e0| 65 62 75 67 76 76 28 32 | 2c 22 45 72 72 6f 72 20 |ebugvv(2|,"Error |
|000012f0| 20 20 22 2c 65 72 72 25 | 29 0d 08 16 1a 20 20 f2 | ",err%|).... .|
|00001300| 65 78 74 65 6e 64 5f 62 | 61 72 28 32 33 2c 77 70 |extend_b|ar(23,wp|
|00001310| 6d 25 29 0d 08 20 1a 20 | 20 f2 65 78 74 65 6e 64 |m%).. . | .extend|
|00001320| 5f 62 61 72 28 32 34 2c | 65 72 72 25 29 0d 08 2a |_bar(24,|err%)..*|
|00001330| 1b 20 20 42 25 21 30 20 | 3d 20 74 79 70 69 6e 67 |. B%!0 |= typing|
|00001340| 5f 77 69 6e 64 6f 77 25 | 0d 08 34 2a 20 20 f2 73 |_window%|..4* .s|
|00001350| 65 74 5f 73 74 72 69 6e | 67 28 74 79 70 69 6e 67 |et_strin|g(typing|
|00001360| 5f 77 69 6e 64 6f 77 25 | 2c 37 2c 30 2c 30 2c 22 |_window%|,7,0,0,"|
|00001370| 22 29 0d 08 3e 2f 20 20 | f2 73 65 74 5f 73 74 72 |")..>/ |.set_str|
|00001380| 69 6e 67 28 74 79 70 69 | 6e 67 5f 77 69 6e 64 6f |ing(typi|ng_windo|
|00001390| 77 25 2c 38 2c 30 2c 30 | 2c c3 28 77 70 6d 25 29 |w%,8,0,0|,.(wpm%)|
|000013a0| 29 0d 08 48 2f 20 20 f2 | 73 65 74 5f 73 74 72 69 |)..H/ .|set_stri|
|000013b0| 6e 67 28 74 79 70 69 6e | 67 5f 77 69 6e 64 6f 77 |ng(typin|g_window|
|000013c0| 25 2c 39 2c 30 2c 30 2c | c3 28 65 72 72 25 29 29 |%,9,0,0,|.(err%))|
|000013d0| 0d 08 52 05 e1 0d 08 5c | 04 0d 08 66 1f dd 20 f2 |..R....\|...f.. .|
|000013e0| 65 78 74 65 6e 64 5f 62 | 61 72 28 69 63 6f 6e 25 |extend_b|ar(icon%|
|000013f0| 2c 76 61 6c 75 65 25 29 | 0d 08 70 27 20 20 f2 64 |,value%)|..p' .d|
|00001400| 65 62 75 67 76 76 28 33 | 2c 22 54 69 6d 65 20 20 |ebugvv(3|,"Time |
|00001410| 20 20 22 2c 74 69 6d 65 | 25 2f 36 30 30 30 29 0d | ",time|%/6000).|
|00001420| 08 7a 1a 20 20 21 42 25 | 20 3d 20 74 79 70 69 6e |.z. !B%| = typin|
|00001430| 67 5f 77 69 6e 64 6f 77 | 25 0d 08 84 12 20 20 42 |g_window|%.... B|
|00001440| 25 21 34 20 3d 20 69 63 | 6f 6e 25 0d 08 8e 20 20 |%!4 = ic|on%... |
|00001450| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f | .. "Wim|p_GetIco|
|00001460| 6e 53 74 61 74 65 22 2c | 2c 42 25 0d 08 98 1e 20 |nState",|,B%.... |
|00001470| 20 c8 99 20 22 57 69 6d | 70 5f 44 65 6c 65 74 65 | .. "Wim|p_Delete|
|00001480| 49 63 6f 6e 22 2c 2c 42 | 25 0d 08 a2 0e 20 20 42 |Icon",,B|%.... B|
|00001490| 25 21 34 3d 21 42 25 0d | 08 ac 1e 20 20 42 25 21 |%!4=!B%.|... B%!|
|000014a0| 31 36 3d 42 25 21 38 2b | 28 76 61 6c 75 65 25 2a |16=B%!8+|(value%*|
|000014b0| 37 2e 34 34 29 0d 08 b6 | 22 20 20 c8 99 20 22 57 |7.44)...|" .. "W|
|000014c0| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|000014d0| 2c 28 42 25 2b 34 29 0d | 08 c0 05 e1 0d 08 ca 05 |,(B%+4).|........|
|000014e0| 20 0d 08 d4 33 dd 20 f2 | 73 65 74 5f 73 74 72 69 | ...3. .|set_stri|
|000014f0| 6e 67 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |ng(windo|w%,icon%|
|00001500| 2c 65 6f 72 25 2c 6d 61 | 73 6b 25 2c 73 74 72 69 |,eor%,ma|sk%,stri|
|00001510| 6e 67 24 29 0d 08 de 14 | 20 20 42 25 21 30 20 3d |ng$)....| B%!0 =|
|00001520| 20 77 69 6e 64 6f 77 25 | 0d 08 e8 12 20 20 42 25 | window%|.... B%|
|00001530| 21 34 20 3d 20 69 63 6f | 6e 25 0d 08 f2 20 20 20 |!4 = ico|n%... |
|00001540| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00001550| 53 74 61 74 65 22 2c 2c | 42 25 0d 08 fc 13 20 20 |State",,|B%.... |
|00001560| 74 65 6d 70 25 20 3d 20 | 42 25 21 32 38 0d 09 06 |temp% = |B%!28...|
|00001570| 16 20 20 24 74 65 6d 70 | 25 20 3d 20 73 74 72 69 |. $temp|% = stri|
|00001580| 6e 67 24 0d 09 10 0f 20 | 20 42 25 21 38 3d 65 6f |ng$.... | B%!8=eo|
|00001590| 72 25 0d 09 1a 11 20 20 | 42 25 21 31 32 3d 6d 61 |r%.... |B%!12=ma|
|000015a0| 73 6b 25 0d 09 24 20 20 | 20 c8 99 20 22 57 69 6d |sk%..$ | .. "Wim|
|000015b0| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|000015c0| 2c 42 25 0d 09 2e 05 e1 | 0d 09 38 04 0d 09 42 04 |,B%.....|..8...B.|
|000015d0| 0d 09 4c 20 dd a4 6c 65 | 61 66 28 6c 65 61 66 24 |..L ..le|af(leaf$|
|000015e0| 29 3a c8 95 20 a7 6c 65 | 61 66 24 2c 22 2e 22 29 |):.. .le|af$,".")|
|000015f0| 0d 09 56 28 6c 65 61 66 | 24 3d c1 6c 65 61 66 24 |..V(leaf|$=.leaf$|
|00001600| 2c a7 6c 65 61 66 24 2c | 22 2e 22 29 2b 31 29 3a |,.leaf$,|".")+1):|
|00001610| ce 3a 3d 6c 65 61 66 24 | 0d 09 60 04 0d 09 6a 1f |.:=leaf$|..`...j.|
|00001620| dd a4 76 61 72 28 70 74 | 72 25 29 3a ea 74 65 78 |..var(pt|r%):.tex|
|00001630| 74 24 3a 74 65 78 74 24 | 3d 22 22 0d 09 74 3c 20 |t$:text$|=""..t< |
|00001640| 20 c8 95 20 3f 70 74 72 | 25 3c 3e 30 20 80 20 3f | .. ?ptr|%<>0 . ?|
|00001650| 70 74 72 25 3c 3e 31 33 | 3a 74 65 78 74 24 2b 3d |ptr%<>13|:text$+=|
|00001660| bd 3f 70 74 72 25 3a 70 | 74 72 25 2b 3d 31 3a ce |.?ptr%:p|tr%+=1:.|
|00001670| 3a 3d 74 65 78 74 24 0d | 09 7e 05 e1 0d 09 88 05 |:=text$.|.~......|
|00001680| 3a 0d 09 92 04 0d 09 9c | 25 dd 20 f2 73 65 6c 65 |:.......|%. .sele|
|00001690| 63 74 5f 65 78 65 72 63 | 69 73 65 28 6d 65 6e 75 |ct_exerc|ise(menu|
|000016a0| 5f 61 64 64 72 65 73 73 | 25 29 0d 09 a6 4d 20 20 |_address|%)...M |
|000016b0| 21 28 6d 65 6e 75 25 2b | 31 33 32 2b 28 6f 6c 64 |!(menu%+|132+(old|
|000016c0| 5f 73 65 6c 65 63 74 69 | 6f 6e 25 2a 32 34 29 29 |_selecti|on%*24))|
|000016d0| 20 3d 20 21 28 6d 65 6e | 75 25 2b 31 33 32 2b 28 | = !(men|u%+132+(|
|000016e0| 6f 6c 64 5f 73 65 6c 65 | 63 74 69 6f 6e 25 2a 32 |old_sele|ction%*2|
|000016f0| 34 29 29 20 82 20 31 0d | 09 b0 4b 20 20 21 28 6d |4)) . 1.|..K !(m|
|00001700| 65 6e 75 25 2b 31 33 32 | 2b 28 6d 65 6e 75 5f 61 |enu%+132|+(menu_a|
|00001710| 64 64 72 65 73 73 25 2a | 32 34 29 29 20 3d 20 21 |ddress%*|24)) = !|
|00001720| 28 6d 65 6e 75 25 2b 31 | 33 32 2b 28 6d 65 6e 75 |(menu%+1|32+(menu|
|00001730| 5f 61 64 64 72 65 73 73 | 25 2a 32 34 29 29 20 82 |_address|%*24)) .|
|00001740| 20 31 0d 09 ba 22 20 20 | 6f 6c 64 5f 73 65 6c 65 | 1..." |old_sele|
|00001750| 63 74 69 6f 6e 25 3d 6d | 65 6e 75 5f 61 64 64 72 |ction%=m|enu_addr|
|00001760| 65 73 73 25 0d 09 c4 05 | e1 0d 09 ce 05 20 0d 09 |ess%....|..... ..|
|00001770| d8 16 dd 20 f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |... .ope|n_window|
|00001780| 28 77 25 29 0d 09 e2 11 | 20 20 20 20 42 25 21 30 |(w%)....| B%!0|
|00001790| 20 3d 20 77 25 0d 09 ec | 24 20 20 20 20 c8 99 20 | = w%...|$ .. |
|000017a0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|000017b0| 74 61 74 65 22 2c 2c 42 | 25 0d 09 f6 12 20 20 20 |tate",,B|%.... |
|000017c0| 20 42 25 21 32 38 20 3d | 20 2d 31 0d 0a 00 20 20 | B%!28 =| -1... |
|000017d0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e | .. "W|imp_Open|
|000017e0| 57 69 6e 64 6f 77 22 2c | 2c 42 25 0d 0a 0a 05 e1 |Window",|,B%.....|
|000017f0| 0d 0a 14 04 0d 0a 1e 2f | dd 20 f2 6d 6f 75 73 65 |......./|. .mouse|
|00001800| 5f 63 6c 69 63 6b 28 58 | 25 2c 59 25 2c 62 75 74 |_click(X|%,Y%,but|
|00001810| 74 6f 6e 25 2c 77 69 6e | 64 6f 77 25 2c 69 63 6f |ton%,win|dow%,ico|
|00001820| 6e 25 29 0d 0a 28 20 20 | 20 e7 20 77 69 6e 64 6f |n%)..( | . windo|
|00001830| 77 25 3d 74 79 70 69 6e | 67 5f 77 69 6e 64 6f 77 |w%=typin|g_window|
|00001840| 25 20 8c 0d 0a 32 3e 20 | 20 20 20 c8 99 20 22 57 |% ...2> | .. "W|
|00001850| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00001860| 74 69 6f 6e 22 2c 74 79 | 70 69 6e 67 5f 77 69 6e |tion",ty|ping_win|
|00001870| 64 6f 77 25 2c 2d 31 2c | 30 2c 30 2c 2d 31 2c 2d |dow%,-1,|0,0,-1,-|
|00001880| 31 0d 0a 3c 07 20 20 cd | 0d 0a 46 13 20 20 e7 20 |1..<. .|..F. . |
|00001890| 62 75 74 74 6f 6e 25 3d | 32 20 8c 0d 0a 50 2b 20 |button%=|2 ...P+ |
|000018a0| 20 20 20 c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 | .."Wi|mp_Creat|
|000018b0| 65 4d 65 6e 75 22 2c 2c | 6d 65 6e 75 25 2c 58 25 |eMenu",,|menu%,X%|
|000018c0| 2d 36 34 2c 59 25 0d 0a | 5a 07 20 20 cd 0d 0a 64 |-64,Y%..|Z. ...d|
|000018d0| 05 e1 0d 0a 6e 04 0d 0a | 78 05 20 0d 0a 82 04 0d |....n...|x. .....|
|000018e0| 0a 8c 0c dd 20 f2 65 72 | 72 6f 72 0d 0a 96 35 20 |.... .er|ror...5 |
|000018f0| 20 24 28 42 25 2b 34 29 | 3d f6 24 2b 22 20 41 74 | $(B%+4)|=.$+" At|
|00001900| 20 6c 69 6e 65 20 22 2b | c3 28 9e 29 2b 22 20 28 | line "+|.(.)+" (|
|00001910| 43 61 6e 63 65 6c 20 74 | 6f 20 51 75 69 74 29 22 |Cancel t|o Quit)"|
|00001920| 0d 0a a0 30 20 20 c8 99 | 20 22 57 69 6d 70 5f 52 |...0 ..| "Wimp_R|
|00001930| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 42 25 2c 33 |eportErr|or",B%,3|
|00001940| 2c 74 61 73 6b 5f 6e 61 | 6d 65 24 20 b8 20 2c 62 |,task_na|me$ . ,b|
|00001950| 0d 0a aa 22 20 20 e7 20 | 62 3c 3e 31 20 c8 99 20 |..." . |b<>1 .. |
|00001960| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00001970| 3a e0 0d 0a b4 05 e1 0d | 0a be 04 0d 0a c8 11 dd |:.......|........|
|00001980| 20 f2 6d 73 67 5f 69 6e | 28 42 25 29 0d 0a d2 21 | .msg_in|(B%)...!|
|00001990| 20 20 f2 64 65 62 75 67 | 76 76 28 39 2c 22 4d 65 | .debug|vv(9,"Me|
|000019a0| 73 73 61 67 65 22 2c 42 | 25 21 31 36 29 0d 0a dc |ssage",B|%!16)...|
|000019b0| 10 20 20 c8 8e 20 42 25 | 21 31 36 20 ca 0d 0a e6 |. .. B%|!16 ....|
|000019c0| 13 20 20 20 20 c9 20 30 | 3a 71 75 69 74 25 3d b9 |. . 0|:quit%=.|
|000019d0| 0d 0a f0 1d 20 20 20 20 | c9 20 32 36 32 33 33 37 |.... |. 262337|
|000019e0| 3a f2 6d 6f 64 65 5f 63 | 68 61 6e 67 65 0d 0a fa |:.mode_c|hange...|
|000019f0| 07 20 20 cb 0d 0b 04 05 | e1 0d 0b 0e 04 0d 0b 18 |. .....|........|
|00001a00| 12 dd 20 f2 6d 6f 64 65 | 5f 63 68 61 6e 67 65 0d |.. .mode|_change.|
|00001a10| 0b 22 19 20 20 42 25 21 | 30 3d 74 79 70 69 6e 67 |.". B%!|0=typing|
|00001a20| 5f 77 69 6e 64 6f 77 25 | 0d 0b 2c 21 20 20 c8 99 |_window%|..,! ..|
|00001a30| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00001a40| 49 6e 66 6f 22 2c 2c 42 | 25 0d 0b 36 1f 20 20 c8 |Info",,B|%..6. .|
|00001a50| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00001a60| 64 6f 77 22 2c 2c 42 25 | 0d 0b 40 1e 20 20 c8 99 |dow",,B%|..@. ..|
|00001a70| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00001a80| 77 22 2c 2c 42 25 0d 0b | 4a 05 e1 0d 0b 54 04 0d |w",,B%..|J....T..|
|00001a90| 0b 5e 1e dd f2 64 65 62 | 75 67 76 76 28 6c 69 6e |.^...deb|ugvv(lin|
|00001aa0| 65 25 2c 6d 65 73 73 24 | 2c 76 61 72 29 0d 0b 68 |e%,mess$|,var)..h|
|00001ab0| 16 20 20 6d 65 73 73 24 | 3d c0 6d 65 73 73 24 2c |. mess$|=.mess$,|
|00001ac0| 31 34 29 0d 0b 72 11 20 | 20 76 61 72 24 3d c3 28 |14)..r. | var$=.(|
|00001ad0| 76 61 72 29 0d 0b 7c 38 | 20 20 f2 64 65 62 75 67 |var)..|8| .debug|
|00001ae0| 28 6c 69 6e 65 25 2c 6d | 65 73 73 24 2b c4 32 35 |(line%,m|ess$+.25|
|00001af0| 2d a9 28 6d 65 73 73 24 | 29 2d a9 28 76 61 72 24 |-.(mess$|)-.(var$|
|00001b00| 29 2c 22 20 22 29 2b 76 | 61 72 24 29 0d 0b 86 05 |)," ")+v|ar$)....|
|00001b10| e1 0d 0b 90 05 3a 0d 0b | 9a 18 dd f2 64 65 62 75 |.....:..|....debu|
|00001b20| 67 28 6c 69 6e 65 25 2c | 6d 65 73 73 24 29 0d 0b |g(line%,|mess$)..|
|00001b30| a4 26 20 20 c8 99 20 22 | 4f 53 5f 53 65 74 56 61 |.& .. "|OS_SetVa|
|00001b40| 72 56 61 6c 22 2c 22 64 | 62 24 6d 65 73 73 22 2c |rVal","d|b$mess",|
|00001b50| 22 58 58 22 0d 0b ae 30 | 20 20 c8 99 20 22 4f 53 |"XX"...0| .. "OS|
|00001b60| 5f 53 65 74 56 61 72 56 | 61 6c 22 2c 22 64 62 24 |_SetVarV|al","db$|
|00001b70| 6d 65 73 73 22 2b c3 28 | 6c 69 6e 65 25 29 2c 6d |mess"+.(|line%),m|
|00001b80| 65 73 73 24 0d 0b b8 05 | e1 0d ff |ess$....|... |
+--------+-------------------------+-------------------------+--------+--------+
